home *** CD-ROM | disk | FTP | other *** search
/ Wonky Flux Batch 2019 02 / Wonky_Flux_Batch_2019-02.zip / Wonky Flux Batch 2019-02 / 092 - EBU.dsk / EXPERIMENTAL / RETTORER.bas < prev    next >
BASIC Source File  |  2019-02-17  |  1KB  |  47 lines
  1. 100  DIM CN$(20): DIM CN(20)
  2. 110  POKE 46013,16
  3. 120 K = 0
  4. 500 I = 46280
  5. 510 P =  PEEK(46013):P = P -1: POKE 46013,P
  6. 520  CALL 45073
  7. 530  IF  PEEK(I -2) = 0  THEN 640
  8. 540  IF  PEEK(I -2) < >255  THEN 610
  9. 550 K = K +1
  10. 560 CN$(K) = ""
  11. 570 CN(K) = P
  12. 580  FOR J = I +1 TO I +31
  13. 590 CN$(K) = CN$(K) + CHR$( PEEK(J))
  14. 600  NEXT J
  15. 610 I = I +35
  16. 620  IF I >46520  THEN 500
  17. 630  GOTO 530
  18. 640  IF CN$(1) = ""  THEN 2500
  19. 1000  HOME 
  20. 1010  FOR I = 1 TO K
  21. 1020  PRINT  CHR$(I +64);"> ";CN$(I)
  22. 1030  NEXT I
  23. 1040  VTAB 21: PRINT "Select file to be resurrected by"
  24. 1050  PRINT "pressing the letter near the filename."
  25. 1060  PRINT "Don't press return!  Use 'Z' if none.";
  26. 1070  GET A$
  27. 1080  PRINT 
  28. 1090  IF  ASC(A$) = 90  THEN 2500
  29. 1100  IF  ASC(A$) <65  OR  ASC(A$) >64 +K  THEN  INVERSE : GOTO 1040
  30. 1110 K =  ASC(A$) -64
  31. 1500  POKE 46013,CN(K)
  32. 1510  CALL 45073
  33. 1520  FOR I = 46280 TO 46520  STEP 35
  34. 1530 CP$ = ""
  35. 1540  FOR L = I +1 TO I +31
  36. 1550 CP$ = CP$ + CHR$( PEEK(L))
  37. 1560  NEXT L
  38. 1570  IF CN$(K) = CP$  THEN M = I:I = 46520
  39. 1580  NEXT I
  40. 2000  POKE M -2, PEEK(M +30)
  41. 2010  POKE M +30,160
  42. 2020  CALL 45111
  43. 2030  HOME : GOTO 2520
  44. 2500  HOME 
  45. 2510  VTAB 10: PRINT "There were no files to be saved."
  46. 2520  VTAB  PRINT "Done."
  47. 2530  END